home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / sscanf.tst < prev    next >
Text File  |  1999-09-16  |  2KB  |  54 lines
  1. //test format %i %d
  2. if sscanf('123','%i')<>123 then pause,end
  3. if sscanf('     123','%i')<>123 then pause,end
  4. if sscanf('123','%2i')<>12 then pause,end
  5. if sscanf('123','%0i')<>123 then pause,end
  6. if sscanf('123','%5i')<>123 then pause,end
  7. //test format %u
  8. if sscanf('+123','%u')<>123 then pause,end
  9. if sscanf(' 123','%2u')<>12 then pause,end
  10. if sscanf('123','%0u')<>123 then pause,end
  11. if sscanf('+123','%5u')<>123 then pause,end
  12. //test format %e %f %g
  13.  
  14. if sscanf('123','%e')<>123 then pause,end
  15. if sscanf('     123','%e')<>123 then pause,end
  16. if sscanf('123','%2e')<>12 then pause,end
  17. if sscanf('123','%0e')<>123 then pause,end
  18. if sscanf('123','%5e')<>123 then pause,end
  19.  
  20. //test format %s
  21. if sscanf('123','%s')<>'123' then pause,end
  22. if sscanf('     123','%s')<>'123' then pause,end
  23. if sscanf('123','%2s')<>'12' then pause,end
  24. if sscanf('123','%0s')<>'123' then pause,end
  25. if sscanf('123','%5s')<>'123' then pause,end
  26.  
  27. //test format %o
  28. if sscanf('123','%o')<>83 then pause,end
  29. if sscanf('     123','%o')<>83 then pause,end
  30. if sscanf('123','%2o')<>10 then pause,end
  31. if sscanf('123','%0o')<>83 then pause,end
  32. if sscanf('123','%5o')<>83 then pause,end
  33.  
  34. //test format %x
  35. if sscanf('123','%x')<>291 then pause,end
  36. if sscanf('     123','%x')<>291 then pause,end
  37. if sscanf('123','%2x')<>18 then pause,end
  38. if sscanf('123','%0x')<>291 then pause,end
  39. if sscanf('123','%5x')<>291 then pause,end
  40.  
  41. //test format %c
  42. if sscanf('123','%c')<>'1' then pause,end
  43. if sscanf('     123','%c')<>' ' then pause,end
  44. if sscanf('123','%0c')<>'1' then pause,end
  45.  
  46. //test des format complexes 
  47. if sscanf('123 4','%*s%s')<>'4' then pause,end
  48. if sscanf('123 4','123%e')<>4 then pause,end
  49. [a,b,c]=sscanf('xxxxx 4 test 23.45','xxxxx%i%s%e')
  50. if a<>4|b<>'test'|c<>23.45 then pause,end
  51.  
  52. [a,b]=sscanf('123\n456','%e%e')
  53. if a<>123|b<>456 then pause,end
  54.